home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / TOT / DEMO.EXE / arc / DEMIO17.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-10  |  2KB  |  90 lines
  1. program DemoIOSeventeen;
  2. {demIO17 - an extension of demio12 with buttons}
  3.  
  4. Uses DOS, CRT,
  5.      totFAST, totIO1, totIO2, totSTR;
  6.  
  7. var
  8.   Field1: CheckIOOBJ;
  9.   Field2,
  10.   Field3,
  11.   Field4: RadioIOOBJ;
  12.   OK,Cancel: Strip3dIOOBJ;
  13.   Keys: ControlKeysIOOBJ;
  14.   Manager: FormOBJ;
  15.  
  16. procedure InitVars;
  17. {}
  18. begin
  19.    with Field1 do
  20.    begin
  21.       Init(17,5,25,4,'Options');
  22.       AddItem('~C~ase sensitive',67,false);
  23.       AddItem('~W~hole words only',87,false);
  24.       AddItem('~R~egular expression',82,false);
  25.    end;
  26.    with Field2 do
  27.    begin
  28.       Init(17,10,25,3,'Scope');
  29.       AddItem('~G~lobal',71,true);
  30.       AddItem('~S~elected text',83,false);
  31.    end;
  32.    with Field3 do
  33.    begin
  34.       Init(45,5,17,3,'Direction');
  35.       AddItem('Forwar~d~',68,true);
  36.       AddItem('~B~ackward',66,false);
  37.    end;
  38.    with Field4 do
  39.    begin
  40.       Init(45,10,17,3,'Origin');
  41.       AddItem('~F~rom cursor',70,false);
  42.       AddItem('~E~ntire scope',69,true);
  43.    end;
  44.    OK.Init(23,14,'   ~O~K   ',Finished);
  45.    OK.SetHotkey(79);
  46.    Cancel.Init(36,14,' C~a~ncel ',Escaped);
  47.    Cancel.SetHotkey(65);
  48.    Keys.Init;
  49. end; {InitVars}
  50.  
  51. procedure DisposeVars;
  52. {}
  53. begin
  54.    Field1.Done;
  55.    Field2.Done;
  56.    Field3.Done;
  57.    Field4.Done;
  58.    OK.Done;
  59.    Cancel.Done;
  60.    Keys.Done;
  61. end; {DisposeVars}
  62.  
  63. begin
  64.    InitVars;
  65.    ClrScr;
  66.    Screen.FillBox(14,2,65,16,79,1);
  67.    Screen.WriteCenter(16,79,' Press Tab to change fields. ');
  68.    with manager do
  69.    begin
  70.       Init;
  71.       AddItem(Keys);
  72.       AddItem(Field1);
  73.       AddItem(Field2);
  74.       AddItem(Field3);
  75.       AddItem(Field4);
  76.       AddItem(OK);
  77.       AddItem(Cancel);
  78.       if Go = Finished then
  79.       begin
  80.          GotoXY(1,18);
  81.       end
  82.       else
  83.       begin
  84.          GotoXY(1,20);
  85.          writeln('You escaped!');
  86.       end;
  87.       DisposeVars;
  88.       Done;
  89.    end;
  90. end.